home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Information / WebSites / Eyetech / DOWNLOAD / CYBER010.LHA / CV3DInstall / tools / CyberBackUp-UnInstallV3 < prev    next >
Encoding:
Text File  |  1997-02-28  |  14.3 KB  |  409 lines
  1. ;********************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  /                    / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\ V3
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; $VER: 1.0 (December-17-1996)
  11. ;                                                  
  12. ; CyberBackUp-UnInstallV3 ©1995,1996 by Robert C. Reiswig 
  13. ; Suggestions or problems: vgr@best.com
  14. ;--------------------------------------------------------------------------------
  15. ;
  16. ;********************************************************************************
  17. (if (= @user-level 0) (set @user-level 2))
  18.  
  19. ;********************************************************************************
  20. ; Read All System information
  21. ;********************************************************************************
  22. (set lan 1)
  23. (if (> (exists ("env:Language")) 0)
  24.   (if (= "deutsch" (getenv "Language")) (set lan 0) )
  25. )
  26.  
  27. ;********************************************************************************
  28. ;English Information
  29. ;********************************************************************************
  30. (set #whattodo "\nWhat would you like to do?\n")
  31. (set #backupcyber " BackUp CyberGraphX V3")
  32. (set #removecyber " UnInstall CyberGraphX V3")
  33. (set #whatpartsb "\nWhat parts of CyberGraphX V3 would you like to BackUp?\n")
  34. (set #libs " Libraries")
  35. (set #monitor " Monitor File")
  36. (set #env " ENV: Vars")
  37. (set #envarc " ENVARC: Vars")
  38. (set #config " Monitor Config File(s)")
  39. (set #whereback "Where would you like to BackUp the selected CyberGraphX V3 Parts?  If a directory Called 'CyberGraphX' is not there one will be created.")
  40. (set #libsbacked1 "\n\nThe CyberGraphX V3 Libraries have been backed-up to:\n\n")
  41. (set #libsbacked2 "\n\n\n\nThe libraries have been renamed to:\n\n<filename>+<version.revision>") 
  42. (set #gettingcheck "\n\nGetting Checksum for:\n\n")
  43. (set #monbacked1 "\n\nThe CyberGraphX V3 Monitor File(s) have been backed-up to:\n\n")
  44. (set #monbacked2 "\n\n\n\nThe Monitor File(s) have been renamed to:\n\n<filename>+<checksum>") 
  45. (set #backenv "\n\nBacking-Up CyberGraphX V3 ENV: File(s)")
  46. (set #envbacked1 "\n\nThe CyberGraphX V3 ENV: File(s) have been backed-up to:\n\n")
  47. (set #monbacked1 "\n\nThe CyberGraphX V3 Monitor Config Files File(s) have been backed-up to:\n\n")
  48. (set #backenvarc "\n\nBacking-Up CyberGraphX V3 ENVARC: File(s)")
  49. (set #envarcbacked1 "\n\nThe CyberGraphX V3 ENVARC: File(s) have been backed-up to:\n\n")
  50. (set #notthere "\n\nCurrently UnInstall is not implemented!")
  51. (set #whatpartun "\nWhat parts of CyberGraphX V3 would you like to UNINSTALL/DELETE?\n")
  52. ;--
  53. (set #deletefile "\n\nDeleteing file:\n\n")
  54. (set #deletedir "\n\nDeleteing directory:\n\n")
  55. (set #deletemon (cat "\n\nThe installer will now DELETE the following files from 'Devs:Monitors' if there are there\n\n"
  56.                      "CVision3D\n\n"
  57.                      "and there .info files."
  58.                 )
  59. )
  60. (set #deletelibs (cat "\n\nThe installer will now DELETE the following files from 'Libs:' if there are there\n\n"
  61.                       "cgxsystem.library\ncgxvideo.library\nvilintuisup.library"
  62.                  )
  63. )
  64. (set #deleteenv "\n\nThe installer will now DELETE 'env:CyberGraphX/#?'")
  65. (set #deleteenvarc "\n\nThe installer will now DELETE 'envarc:CyberGraphX/#?'")
  66. (set #deletemonitorc "\n\nThe installer will now DELETE 'sys:Prefs/presets/Monitors/#?'")
  67. (set #removenow "Delete Now")
  68. (set #skip "Skip")
  69.  
  70.  
  71. ;********************************************************************************
  72. ;German Information
  73. ;********************************************************************************
  74. (if (= LAN 0)
  75. (
  76. (set #whattodo "\nWas möchten Sie tun ?\n")
  77. (set #backupcyber " Sichere CyberGraphX V3")
  78. (set #removecyber " Entferne CyberGraphX V3")
  79. (set #whatpartsb "\nWelche Teile von CyberGraphX V3 möchten Sie sichern?\n")
  80. (set #libs " Libraries")
  81. (set #monitor " Monitor Datei(en)")
  82. (set #env " ENV: Variablen")
  83. (set #envarc " ENVARC: Variablen")
  84. (set #whereback "Wohin wollen Sie die gewählten CyberGraphX V3 Teile sichern?  Wenn ein Verzeichnis 'CyberGraphX' nicht vorhanden ist, wird es erstellt.")
  85. (set #libsbacked1 "\n\nDie CyberGraphX V3 Libraries wurden gesichert nach:\n\n")
  86. (set #libsbacked2 "\n\n\n\nDie Libraries wurden umbenannt in:\n\n<filename>+<version.revision>") 
  87. (set #gettingcheck "\n\nErzeuge Prüfsumme für:\n\n")
  88. (set #monbacked1 "\n\nDie CyberGraphX V3 Monitor Datei(en) wurden gesichert nach:\n\n")
  89. (set #monbacked2 "\n\n\n\nDie Monitor Datei(en) wurden umbenannt in:\n\n<filename>+<checksum>") 
  90. (set #backenv "\n\nSichere CyberGraphX V3 ENV: Datei(en)")
  91. (set #envbacked1 "\n\nDie CyberGraphX V3 ENV: Datei(en) wurden gesichert nach:\n\n")
  92. (set #backenvarc "\n\nSichere CyberGraphX V3 ENVARC: Datei(en)")
  93. (set #envarcbacked1 "\n\nDie CyberGraphX V3 ENVARC: Datei(en) wurden gesichert nach:\n\n")
  94. (set #notthere "\n\nDie Option Deinstallieren ist nicht implementiert!")
  95. ;--
  96. (set #deletefile "\n\nLösche Datei:\n\n")
  97. (set #deletedir "\n\nLösche Verzeichnis:\n\n")
  98. (set #deletemon (cat "\n\nDas Installationsprogramm löscht nun folgende Dateien aus 'Devs:Monitors'\n\n"
  99.                      "Spectrum, Piccolo, Domino, RetinaZ3, PiccoSD64, A2410, Picasso, CyberVision, DraCoAltais\n\n"
  100.                      "und die .info Dateien."
  101.                 )
  102. )
  103. (set #deletelibs (cat "\n\nDas Installationsprogramm wird nun folgende Dateien aus 'Libs:' löschen, falls vorhanden\n\n"
  104.                       "cybergraphics.library\ncyberintuition.library\ncyberlayers.library\ncyberncg.library\nvilintuisup.library"
  105.                  )
  106. )
  107. (set #deleteenv "\n\nDas Installationsprogramm löscht nun 'env:CyberGraphX/#?'")
  108. (set #deleteenvarc "\n\nDas Installationsprogramm löscht nun 'envarc:CyberGraphX/#?'")
  109. (set #removenow "Jetzt löschen")
  110. (set #skip "Überspringen")
  111.  
  112.  
  113. )
  114. )
  115.  
  116.  
  117. ;********************************************************************************
  118. ; What to do?
  119. ;********************************************************************************
  120. (set ja (askoptions   (choices #backupcyber #removecyber)
  121.                        (prompt #whattodo)
  122.                       (help   #whattodo)
  123.                          (default 1)
  124.     )
  125. )
  126.  
  127. ;********************************************************************************
  128. ; BackUp
  129. ;********************************************************************************
  130. (if (IN ja 0)
  131. (
  132.  
  133. (set todo (askoptions   (choices #libs #monitor #env #envarc #config)
  134.                           (prompt #whatpartsb)
  135.                         (help   #whatpartsb)
  136.                            (default 31)
  137.     )
  138. )
  139.  
  140. (if (<> todo 0)
  141.  (
  142.    (set whereback (askdir (prompt #whereback)
  143.                       (help   #whereback)
  144.                           (default "SYS:Storage")
  145.               )
  146.    )
  147.  
  148.    (set wherelibs "libs:")
  149.    (set wheremon  "devs:monitors")   
  150.    
  151.    (if (IN todo 0)
  152.       (
  153.          (set libsdest (tackon whereback "CyberGraphX"))
  154.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  155.          (set libsdest (tackon whereback "CyberGraphX/libs"))
  156.          (if (< (exists libsdest) 2)  (makedir libsdest (infos)) )
  157.  
  158.          (procedure BackUpLib
  159.           (if (> (exists (tackon wherelibs #lib)) 0)
  160.            (
  161.              (set vernum1 (getversion (tackon wherelibs #lib)) )
  162.              (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  163.  
  164.              (copyfiles (source (tackon wherelibs #lib))
  165.                                 (dest libsdest)
  166.                                 (newname (cat #lib ver1 "." rev1))
  167.              )
  168.            )
  169.           )
  170.          ) 
  171.  
  172.          (set #lib "cgxsystem.library")   (BackUpLib)
  173.          (set #lib "cgxvideo.library")    (BackUpLib)
  174.          (set #lib "vilintuisup.library") (BackUpLib)
  175.          (set #lib "gtlayout.library")    (BackUpLib)
  176.  
  177.          (message (cat #libsbacked1 libsdest #libsbacked2))
  178.       )
  179.     )
  180.  
  181.  
  182.    (if (IN todo 1)
  183.       (
  184.          (set mondest (tackon whereback "CyberGraphX"))
  185.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  186.          (set mondest (tackon whereback "CyberGraphX/Devs"))
  187.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  188.          (set mondest (tackon whereback "CyberGraphX/Devs/Monitors"))
  189.          (if (< (exists mondest) 2)  (makedir mondest (infos)) )
  190.            
  191.          (procedure BackUpMon
  192.           (if (> (exists (tackon wheremon #mon)) 0)
  193.             (
  194.              (working (cat #gettingcheck (tackon wheremon #mon) )) 
  195.              (set sum (getsum (tackon wheremon #mon)) )
  196.              (if (< sum 0) (set sum (* sum -1)) )
  197.  
  198.               (copyfiles (source (tackon wheremon #mon))
  199.                                  (dest mondest)
  200.                                  (newname (cat #mon "." sum))
  201.                                  (infos)
  202.               )
  203.             )
  204.           )
  205.          ) 
  206.  
  207.          (set #mon "CVision3D")    (BackUpMon)
  208.               
  209.          (message (cat #monbacked1 mondest #monbacked2))
  210.       )
  211.     )
  212.  
  213.  
  214.    (if (IN todo 2)
  215.       (
  216.          (set envdest (tackon whereback "CyberGraphX"))
  217.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  218.          (set envdest (tackon whereback "CyberGraphX/Env"))
  219.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  220.          (set envdest (tackon whereback "CyberGraphX/Env/CyberGraphX"))
  221.          (if (< (exists envdest) 2)  (makedir envdest (infos)) )
  222.                  
  223.          (working #backenv) 
  224.          (set copycmd (cat "copy env:CyberGraphX to \"" envdest "\" all"))  
  225.          (run copycmd)
  226.               
  227.          (message (cat #envbacked1 envdest))
  228.       )
  229.    )
  230.  
  231.    (if (IN todo 3)
  232.       (
  233.          (set envarcdest (tackon whereback "CyberGraphX"))
  234.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  235.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc"))
  236.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  237.          (set envarcdest (tackon whereback "CyberGraphX/EnvArc/CyberGraphX"))
  238.          (if (< (exists envarcdest) 2)  (makedir envarcdest (infos)) )
  239.                  
  240.          (working #backenvarc) 
  241.          (set copycmd (cat "copy envarc:CyberGraphX to \"" envarcdest "\" all"))  
  242.          (run copycmd)
  243.               
  244.          (message (cat #envarcbacked1 envarcdest))
  245.       )
  246.    )    
  247.  
  248.    (if (IN todo 4)
  249.       (
  250.          (set monitordest (tackon whereback "CyberGraphX"))
  251.          (if (< (exists monitordest) 2)  (makedir monitordest (infos)) )
  252.          (set monitordest (tackon whereback "CyberGraphX/Prefs"))
  253.          (if (< (exists monitordest) 2)  (makedir monitordest (infos)) )
  254.          (set monitordest (tackon whereback "CyberGraphX/Prefs/Presets"))
  255.          (if (< (exists monitordest) 2)  (makedir monitordest (infos)) )
  256.          (set monitordest (tackon whereback "CyberGraphX/Prefs/Presets/Monitors"))
  257.          (if (< (exists monitordest) 2)  (makedir monitordest (infos)) )
  258.                  
  259.          (working #backenvarc) 
  260.          (set copycmd (cat "copy sys:prefs/presets/monitors/#? to \"" monitordest "\" all"))  
  261.          (run copycmd)
  262.               
  263.          (message (cat #monbacked1 monitordest))
  264.       )
  265.    )    
  266.  
  267.  
  268.  )
  269. )
  270.  
  271.  
  272. )
  273. )
  274.  
  275. ;********************************************************************************
  276. ; UnInstall
  277. ;********************************************************************************
  278. (set dfn "")
  279. (procedure dfd   (delete (tackon "devs:monitors" dfn) (infos))  )
  280. (procedure dfl   (delete (tackon "libs:" dfn) (infos))  )
  281.  
  282.  
  283. (if (IN ja 1)
  284. (
  285.  
  286. (set todo1 (askoptions   (choices #libs #monitor #env #envarc #config)
  287.                           (prompt #whatpartun)
  288.                         (help   #whatpartun)
  289.                            (default 0)
  290.     )
  291. )
  292.  
  293. (if (IN todo1 0)
  294.   (
  295.    (set kill (askbool (prompt #deletelibs)
  296.                (help   #deletelibs)
  297.                       (choices #removenow #Skip)
  298.          )
  299.    )
  300.  
  301.    (if (= kill 1)
  302.     (
  303.      (set dfl "cgxsystem.library")   (dfl)  (set dfl "cgxvideo.library") (dfl)
  304.      (set dfl "vilintuisup.library") (dfl) 
  305.  
  306.     )
  307.    ) 
  308.   )
  309. )
  310.  
  311.  
  312. (if (IN todo1 1)
  313.   (
  314.    (set kill (askbool (prompt #deletemon)
  315.                (help   #deletemon)
  316.                       (choices #removenow #Skip)
  317.          )
  318.    )
  319.  
  320.    (if (= kill 1)
  321.     (
  322.      (set dfn "CVision3D") (dfd) 
  323.     )
  324.    ) 
  325.   )
  326. )
  327.  
  328.  
  329. (if (IN todo1 2)
  330.   (
  331.    (set kill (askbool (prompt #deleteenv)
  332.                (help   #deleteenv)
  333.                       (choices #removenow #Skip)
  334.          )
  335.    )
  336.  
  337.    (if (= kill 1)
  338.     (
  339.      (foreach "env:CyberGraphX" "#?" 
  340.       (set curdir @each-name) 
  341.       (foreach (tackon "env:CyberGraphX" curdir) "#?"
  342.          ;(working (cat "\n\n" #deletefile "\n\n" (tackon (tackon "env:CyberGraphX" curdir) @each-name)))
  343.          (delete (tackon (tackon "env:CyberGraphX" curdir) @each-name)) 
  344.       )
  345.       ;(working (cat "\n\n" #deletedir "\n\n" (tackon "env:CyberGraphX" curdir)))
  346.       (delete (tackon "env:CyberGraphX" curdir))
  347.      )       
  348.      (delete "env:CyberGraphX")
  349.     )
  350.    ) 
  351.   )
  352. )
  353.  
  354.  
  355. (if (IN todo1 3)
  356.   (
  357.    (set kill (askbool (prompt #deleteenvarc)
  358.                (help   #deleteenvarc)
  359.                       (choices #removenow #Skip)
  360.          )
  361.    )
  362.  
  363.    (if (= kill 1)
  364.     (
  365.      (foreach "envarc:CyberGraphX" "#?" 
  366.       (set curdir @each-name) 
  367.       (foreach (tackon "envarc:CyberGraphX" curdir) "#?"
  368.          ;(working (cat "\n\n" #deletefile "\n\n" (tackon (tackon "envarc:CyberGraphX" curdir) @each-name)))
  369.          (delete (tackon (tackon "envarc:CyberGraphX" curdir) @each-name)) 
  370.       )
  371.       ;(working (cat "\n\n" #deletedir "\n\n" (tackon "envarc:CyberGraphX" curdir)))
  372.       (delete (tackon "envarc:CyberGraphX" curdir))
  373.      )       
  374.      (delete "envarc:CyberGraphX")
  375.     )
  376.    ) 
  377.   )
  378. )
  379.  
  380.  
  381. (if (IN todo1 4)
  382.   (
  383.    (set kill (askbool (prompt #deletemonitorc)
  384.                (help   #deletemonitorc)
  385.                       (choices #removenow #Skip)
  386.          )
  387.    )
  388.  
  389.    (if (= kill 1)
  390.     (
  391.      (foreach "sys:prefs/presets/monitors" "Monitor#?" 
  392.       (delete (tackon "sys:prefs/presets/monitors" @each-name)) 
  393.      )
  394.     )       
  395.      ;(delete "sys:prefs/presets/monitors")
  396.    )
  397.   ) 
  398. )
  399.  
  400.  
  401.  
  402. )
  403. )
  404. ;********************************************************************************
  405. ; END
  406. ;********************************************************************************
  407. (set @default-dest (cat whereback "CyberGraphX"))
  408. (exit "CyberBackUp-UnInstallV3")
  409.